ON error resume next
Dim objRootDSE, strDomain, objGroup, objUser, strGroupMembers
' Retrieve domain information
Set objRootDSE = GetObject("LDAP://RootDSE")
strDomain = objRootDSE.Get("DefaultNamingContext")

' Bind to the group
Set objGroup = GetObject("LDAP://CN=AUTO ADMIN SRC,OU=GRUPOS,OU=TESTE,OU=TAXONOMIA," & strDomain)
' Iterate through the user objects in the group
For Each objUser In objGroup.Members

' Append users Name to the output string
strGroupMembers = strGroupMembers & objUser.Name & VbCrLf	
Next
' Print out the user list
MsgBox strGroupMembers